5 POKE55,0:POKE56,56
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53371,0
20 POKE53272,31
25 AD=49152
30 SYSAD:SYSAD+12
35 DIMGM(9),J2(9),R(9)
36 GOSUB185
37 BS$="[159][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
40 PRINT"[147]":POKE53280,.:POKE53281,.:SYSAD+9,13
41 PRINT"[159][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
42 PRINTBS$""TAB(38)BS$
43 PRINT"[159][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
44 TQ=TI
45 PRINT"";TAB(6)"[150] [208][210][197][195][197][211][211][201][207][206] [207][198] [193] [211][193][212][197][204][204][201][212][197] "
55 PRINTTAB(8)"[153] [208]ICK A [200]EAVENLY [194][207][196][217]: "
60 PRINTTAB(3)"0. [158][205]ERCURY  3. [158][205]OON    6. [158][211]ATURN"
65 PRINTTAB(3)"1. [158][214]ENUS    4. [158][205]ARS    7. [158][213]RANUS"
70 PRINTTAB(3)"2. [158][197]ARTH    5. [158][202]UPITER 8. [158][206]EPTUNE"
72 PRINTTAB(9)"9. [153][211]ATELLITE LISTINGS"
75 GETA$:IFA$<"0"ORA$>"9"THEN75
80 J=VAL(A$)
83 IFJ=9THENGOTO270
85 SYSAD+9,6
90 PRINTTAB(2)"[153][193]LTITUDE OF ITS ORBIT: ";:L9%=8:GOSUB1250:A=Q9
95 PRINTTAB(2)"[153][201]NCLINATION TO EQUATOR ([219]S): ";:L9%=4:GOSUB1250:I=Q9
100 I=I/RD:REM CONVERT TO RADIANS
105 POKE214,10:PRINT:PRINTTAB(8)"[201]S THIS [195]ORRECT? [150][217]/[206]":POKE198,0
106 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN106
107 IFHC$="N"THENGOTO40
110 K1=R(J)*R(J)*(R(J)+A)^-3.5*SQR(GM(J))
115 N=-1.5*K1*J2(J)*COS(I)
120 P=.75*K1*J2(J)*(5*COS(I)*COS(I)-1)
125 N=N*RD*S:P=P*RD*S:REM RADIANS/SEC TO DEG/DAY
130 SYSAD+9,14
132 POKE214,10:PRINT:PRINTTAB(1)"[150][162][162][162][162][162][162][162][162][162][162][162][155][212]HE [210][197][211][213][204][212][211][160]ARE[150][162][162][162][162][162][162][162][162][162][162][162]"
135 PRINT:PRINTTAB(6)"[155]-[153][208]RECESSION OF THE [206][207][196][197][155]-"
140 PRINTTAB(6)"";N;"[158][219]S PER DAY"
145 PRINTTAB(6)"";N*Y;"[158][219]S PER YEAR"
150 PRINT:PRINTTAB(5)"[155]-[153][208]RECESSION OF [208][197][210][201][195][197][206][212][197][210][155]-"
155 PRINTTAB(6)"";P;"[158][219]S PER DAY "
160 PRINTTAB(6)"";P*Y;"[158][219]S PER YEAR"
162 IFTI<TQ+500THEN162
165 GOSUB40000
175 RESTORE:POKE198,.:GOTO40
185 REM    READ IN DATA
190 RD=180/(null):REM RADIANS TO DEGREES
195 Y=365.2422:REM DAYS PER YEAR
200 S=86400:REM SECONDS PER DAY
205 FORJ=0TO8:READGM(J):NEXT
210 REM PLANETARY GM'S (KM^3/S^2)
215 DATA22032,324860,398600,4902,42828
220 DATA125680000,37931000,5793900,6835000
225 FORJ=0TO8:READJ2(J):NEXT
230 REM PLANETARY J2'S
235 DATA.00006,.0000186,.001083,.0002027
240 DATA.00196,.014736,.016480,.003345,.0043
245 FORJ=0TO8:READR(J):NEXT
250 REM PLANETARY RADII (KM)
255 DATA2440,6050,6378,1738,3398
260 DATA71492,60268,25559,24760
265 RETURN
270 PRINT"[147]":SYSAD+9,12
275 PRINT"[211]ATELLITE   [200]EIGHT(KM) [201]NCLINATION [219]'S"
280 PRINT"[155][197]-[153][205]OON     [158]   384,400   [159]18.3-28.6"
285 PRINT"[155][197]-[153][195][207][194][197]     [158]       890   [159]   99"
290 PRINT"[155][197]-[153][205]IR      [158]       414   [159]   51.6"
295 PRINT"[155][205]-[153][208]HOBOS   [158]     5,380   [159]    1"
300 PRINT"[155][202]-[153][201]O       [158]   421,600   [159]     .04"
305 PRINT"[155][202]-[153][197]UROPA   [158]   670,900   [159]     .47"
307 PRINT"[155][202]-[153][199]ANYMEDE [158] 1,070,000   [159]     .19"
310 PRINT"[155][202]-[153][195]ALLISTO [158] 1,883,000   [159]     .28"
315 PRINT"[155][202]-[153][195]ARME    [158]22,600,000   [159]  163"
320 PRINT"[155][211]-[153][205]IMAS    [158]   185,520   [159]     .942"
325 PRINT"[155][211]-[153][196]IONE    [158]   377,400   [159]     .02"
327 PRINT"[155][211]-[153][197]NCELADUS[158]   238,020   [159]     .02"
330 PRINT"[155][211]-[153][212]ITAN    [158] 1,221,850   [159]     .33"
332 PRINT"[155][211]-[153][208]HOEBE   [158]12,952,850   [159]     .13"
333 PRINT"[155][211]-[153][210]HEA     [158]   527,040   [159]     .35"
335 PRINT"[155][213]-[153][205]IRANDA  [158]   129,780   [159]    3.4"
337 PRINT"[155][213]-[153][212]ITANIA  [158]   435,840   [159]    0"
340 PRINT"[155][213]-[153][213]MBRIEL  [158]   265,970   [159]    0"
342 PRINT"[155][213]-[153][207]BERON   [158]   582,600   [159]    0"
345 PRINT"[155][206]-[153][212]RITON   [158]   354,800   [159]  157"
350 PRINT"[155][206]-[153][206]EREID   [158] 5,513,400   [159]   29"
355 PRINTTAB(10)"[150][193]NY KEY FOR [215]ORK [211]CREEN":POKE198,0
360 GETHC$:IFHC$=""THEN360
365 GOTO40
1250 Q9$="":POKE198,.
1255 GETA$
1260 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN1255
1265 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
1270 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO1300
1275 IFLEN(Q9$)>=L9%THENSYSAD+9,2:GOTO1255
1280 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"THEN1290
1285 GOTO1255
1290 Q9$=Q9$+A$
1295 PRINT""A$;:SYSAD+9,6:GOTO1255
1300 PRINT" [157][157] [157]";:GOTO1255
10000 D=PEEK(186):N$="PRECESS SAT":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 POKE214,20:PRINT:PRINTTAB(8)"[155](1[155]) [154][212]RY ANOTHER ONE
40010 [153][163]8)"LIST(2LIST) CONT(null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
40020 POKE198,0:SYSAD+9,15
40030 GETA$:IFA$<"1"ORA$>"2"THEN40030
40040 IFA$="1"THENRETURN
40050 SYSAD+15
40060 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE II"CHR$(34)","DV
40070 PRINT"RUN28"
40080 POKE631,13:POKE632,13:POKE198,2:END